unit PictureExt;

interface

uses Classes , Graphics;

type

  TExtPicture =class(TPicture)
  public
    procedure LoadFromStream(const AStream : TStream);
    procedure SaveToStream(const AStream : TStream);
  end;

implementation

{ TExtPicture }

procedure TExtPicture.LoadFromStream(const AStream: TStream);
begin
  inherited LoadFromStream(AStream);
end;

procedure TExtPicture.SaveToStream(const AStream: TStream);
begin
  inherited SaveToStream(AStream);
end;

end.
